Summary

# read in CA oil spill data
ca_oil <- read_sf(here("part1_spatial/Oil_Spill_Incident_Tracking"), layer = "Oil_Spill_Incident_Tracking") %>% 
  clean_names()

# Read in the CA county data (TIGER shapefile):
ca_counties <- read_sf(here("part1_spatial/ca_counties"), layer = "CA_Counties_TIGER2016") %>% 
  clean_names() %>% 
  select(name)

Interactive Map

tmap_mode("view") # interactive mode

tm_shape(ca_oil)+
  tm_dots()

Citation

https://map.dfg.ca.gov/metadata/ds0394.html